library(exscidata)
library(tidyverse)
cyclingstudy %>%
select(subject, timepoint, lac.125:lac.375) %>%
print(n = 4)# A tibble: 80 × 11
subject timepoint lac.125 lac.175 lac.225 lac.250 lac.275 lac.300 lac.325
<dbl> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 1 pre 1.5 1.86 2.38 3.54 6.21 NA NA
2 2 pre 1.19 1.49 2.34 3.21 5.33 NA NA
3 3 pre 1.17 1.52 1.22 1.54 2.04 3.32 4.72
4 4 pre 0.88 0.99 2.13 3.25 NA 6.15 NA
# ℹ 76 more rows
# ℹ 2 more variables: lac.350 <dbl>, lac.375 <dbl>